





Directory of /dd/SYSOP/OSXer/14 11:13:57 
Owner Last lodified Attributes Sector Bytecount Naie 


. login 


Levinsn 90/10/12 0709 — -r-wr 
StG 91/04/23 1104 -—r-wr 
Editor 91/04/21 2337 -—r-wr 
Fleagle 91/12/07 1324 -—r-wr 
Pollock 91/10/13 0210 -—r-wr 
Editor 91/04/23 2313 — • -r-wr 


I 8156 Basic09Jntro 

4 8856 dlink.c" 

8 13196 Editor Raibles On 

II 12780 0_Say_Can_You_C 

14 10640 Systei Calls 

16 707 Zjnd " 


CONSIDERATIONS FOR SUBMITT08S 

There are a few things ya'll can do to lake wy life easier. Mhen 
sending in subiissions of any type (text, prograi), please lake sure of 
a few things first: 

1| The f ile(s) are in ASCII text, preferably without linefeeds. 

2) Do not justify the text, our processing will align it for you, 

3) Do NOT indent paragraphs, but do leave a blank line between thea. 

4) Please don’t leave any left aargins or hyphenate any words. 

5) Be sure to include your naie and how to contact you. 

6 | Best way to send it is via a network: SysopRRoot on StG-Net, 
or 72427,335 on CIS. 

71 If sending by lail, use 0S9 CoCo Foriat, 5.25" or 3.5" 1720k(, 
or ST foriat 3.5" (720k), or mi foriat 3.5" (1.44M| 

8] If von want to archive it, please use the 0S9 .AR foriat. 


the OSKer 

'the OSKer' is printed lonthly by StG Coiputers inc, P.0. Box 24285, 
Speedway, Indiana, 46224. The president and editor is Scott 
Griepentrog, V.P. Ju Hutchins, Secretary Chris Swinefurth, and 
Treasurer Dave Henk. 

Subscriptions to the OSKer are $12 within the U.S., $15 for Canada, and 
$20 overseas. 

Bditing and Layout for the OSKer is done coipletely under OSK, using a 
prototype mi. uHacs is used for pre-editing of text, and a custoi 
routine is used for foriatting and layout. An ALPS Allegro 500 (flat 
paper path, 24 pin) printer is used to produce the initial copy for 
duplication by offset, as well as printing the tailing addresses on the 
back cover. The subscription list is also kept in a database under OSK. 

To prevent a conflict of interest, StG Coiputer inc., as both publisher 
of the OSKer and having ownership of software, will not directly 
advertise in this lagazine, nor will the editor in any way proiote said 
software. 

The Cover artwork is done by Alan Sheltra 
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10 PRINT "YOUR NAME" 

20 PRINT "YOUR ADDRESS" 

30 PRINT "YOUR CITY, STATE, ZIP" 
40 IF (IN USA) INCLUDE *12 
50 IF (IN CANADA) INCLUDE *15 
60 ELSE INCLUDE *20 
70 MAIL TO: 

tho OSKor 
P.O. Box 24285 
Speedway IN 48224 
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Introduction to BASIC09 
by Brie Levinson 9/9/90 

Many people that have used the standard BASIC froi the Disk Bxtended 
Color Basic believe that it is the best BASIC they have seen, or the 
best in its tiie. This is true, the Disk Extended Color Basic (DECB) is 
a very powerful - programing language allowing certain features like 
user-defined functions, direct buffer lanipulation for graphics and fast 
execution. In addition lany coipanies have written coipilers to further 
coipress the BASIC source code into an interiediate pre- interpreted 
executable code. 

A few things that DBCB lacks, direct couunication with the operating 
systei, higher structure (lore on this), and paraieter passing. In 
addition OS9 offers the user the ability to run tore than one prograi at 
a tiie. 

Why BASIC09? 

BASIC09 was developed and structured after PASCAL. BASIC09 is a highly 
structured prograiiing language that affords speed, versatility, direct 
access to the DOS, lodularity, paraieter passing and encapsulation. 

BASIC09 recognizes four data types. INTEGER, REAL, STRING and BOOLEAN. 
In addition coiplex data types can be defined with the TYPE coiiand (any 
of the above can be lixed into one type). Up until now, the DECB users 
have only used the REAL and STRING type. Coiputers cannot directly 
■anipulate real nuibers because an eleient of indescreteness occurs 
between two real nuibers. If I asked you, "How lany nuibers are between 
the real nuiber 0. and 1.?' you would have to say that there are an 
infinite nuibers between those nuibers. You could have 0.5, 0.25, 0.26, 
or even 0.000000000000000001 for that latter. A REAL type variable is 
considered ’indiscrete" because there is no logical step between 
nuibers. In DECB, a REAL nuiber consists of a 5 byte coded string. See 
MEN and CVN conands in your DECB lanual for lore. When DECB does 
arithietic, it has to lanipulate all 5 bytes. This can take alot of 
tiie to do lany lultiplies, or exponentiation, especially if they are in 
a GOTO loop and are repeated over and over again. This is what the 
INTEGER type is for in BASIC09. If you are doing siiple arithietic, the 
INTEGER type consists of 2 bytes, but these bytes are not coded. They 
are the raw data in binary representation. The INTBGER variable type 
can go froi -32768 to 0 to +32767, lodulo, which leans that +32767 + 1 = 
-32768. When you assign a variable to be type INTEGER in BASIC09 it 
gets acted on aliost 8 tiies faster than a REAL type nuiber in DBCB. So 
you can see, for its purpose, INTEGER can be a real tiie saver. The 
INTBGER type is a 'discrete' data type because each nuiber in the 
sequence has one nuiber before it, and one after it. There are no 
nuibers between 0 and 1 in the INTBGBR data type. The STRING data type 
is used so you can set up strings to hold data. If a $ is used after a 
variable naie, it autoiatically gets 35 bytes of string space. Last but 
not least is an 'enuierated' data type called BOOLEAN. It is discrete, 
and has only two values, True and False. It is called 'enuierated' 
because the values are not string results, not are they nuierical 
results. Any tiie two variables of the saie type are coipared with =, 

<, >, <>, <= or >•, the result is said to be BOOLEAN. The result is 
either True, or False. There will be exaiple prograis to follow. 

Structured Languages 

For aliost a decade Coiputer Scientists argued that the GOTO stateient 


was not required, and not needed, if the correct stateients to replace 
thei were available. These looping stateients are as follows: 
REPEAT/UNTIL, WHILB/BNDWHILB, L00P/ENDL00P and FOR/TO/NEXT. All of 
these structured stateients allows the prograi not to consist of 
"spaghetti' code as found forially in old versions of BASIC, like DECB. 
In addition, prograis can be written WITHOUT the use of line nuibers. 
This also reduced the clutter that occured, if GOSUB was required, then 
a line nuiber can be entered on the line to be the subroutine. 

Type in the following BASIC09 prograi. To start BASIC09, place your 0S9 
disk in your drive 0. Type DOS, and wait for the 0S9: prompt . Once in 
0S9, insert your BASIC09 disk and type: BASIC09. 

After a few seconds of disk churning, the following lessage will appear: 

BASIC09 

RS VERSION 01.00.0X 
COPYRIGHT 1980 BY MOTOROLA INC. 

AND MICROWARB SYSTEMS CORP. 

REPRODUCED UNDER LICENSE 
TO TANDY CORP. 

ALL RIGHTS RESERVED . 

Basic09 

Ready 

B: 

You are now ready to learn the three lodes of BASIC09. 

The first lode is the coiiand lode (which is where you are right now,) 
YOU lay type LOAD, SAVE, RENAME, LIST, E, 

KILL, DIR, MBM and a few other commands here. To start typing a prograi 
in, choose a naie like TEST and type E TEST at the B: prompt . The E 
coiiand tells BASIC09 to go froi the coiiand state to the editor. 

Now it will show: 

PROCEDURE test 

E: 

The ‘ leans that the editor pointer is at the top of the file. Type the 
following lines, laking sure you enter a space before the line. The 
space tells the editor you wish to insert a line. The BASIC09 editor 
works exactly like the standard BDIT coaiand works in 0S9, Sole basic 
commands while in the editor: 

D Deletes the current line 
S/text/ Searches for the first occurrence of text 
S'/text/ Searches for all occurrences of text 
-* Places the pointer back to the beginning of the BASIC09 
buffer 

+» Goes to the end of the buffer 

Type the following as it appears here: 

DIM x,y: INTEGER 
DIM a:STRING[80) 

DIM r:REAL 


Sector 1 



Basic09_intro 


DIN b: BOOLEAN 
LOOP 

INPUT "Bnter a nuiber ";x 
INPUT "Enter another nuiber ";y 
PRINT "X » Y = ";X*y 
INPUT "Enter a deciial nuiber ";r 
PRINT "X * R = ";X‘r 
INPUT "Enter a string ";a 
PRINT "You have entered: ";a 
b := (x = y) 

PRINT "D 

INPUT "Do you want to try again? ";a 
RXITIF a="N0" or a=" 

BNDLOOP 

END 

After you have entered this code in, type Q on the line by itself. 

While at the B: proipt, you lay type LIST to see your prograi. If any 
errors were reported, you will see the lessage ERR before each suspected 
line. 

BASIC09 will now atteipt to write it into leiory so it lay be executed. 
If you get any errors, BASIC09 will show the hexideciial leiory location 
errors where the error occurred and you lay go back into the editor and 
fix it. 

Notice, no line nuibers? That is because we put the LOOP in the prograi. 
Without the LOOP coiiand, we would need to use at least one line nuiber 
at the beginning and have it go back to the beginning to start over. 

Everything is pretty mch self explanatory, except the b := (x = y) . tie 
are asking the BASIC09 interpreter to coipare X and Y. If they are 
equal, store a True in B. If they are not, store a False in B. Notice 
after you entered that line if you went up a line, the parentheses would 
be gone, like you never entered thei. That is because BASIC09 knows 
where they are required, and reioves thei when they are not. 

Since BASIC09 reieibers the naie of the procedure, if you need to go 
back, siiply type E. If you want to save the procedure siiply type SAVB 
at the B: proipt. To run the procedure, type RUN. 

The third lode of BASIC09 is the DBBUG lode. You can enter this lode 
two ways. One way is by placing the PAUSB coiiand in your BASIC09 
prograi. The other way is by pressing CNTRL C while your prograi is 
executing. While in DBBUG you will see a D: proipt. You can issue 
BASIC09 coiiands like: PRINT a or CONT to continue. Press Q to get out 
of the DBBUG lode. While in the B: and D: lodes, you lay type | to run 
a shell. Type ex in the shell to return to where you were in BASIC09. 

If you just want to get a directory of a disk and don't want to leave 
BASIC09, siiply type $dir at the B: or D: proipts. 

When done, siiply type BYB. This will take you out of BASIC09 and back 
to the 0S9: proipt. HAKE SURE YOU SAVB YOUR FILE FIRST! when you type 
BYE, there is no second chance. 

Ny next article will be a series of features of BASIC09. 

If you have questions, feel free to write le directly. Ny address is: 


Color Galaxy Inc. 

Brie Levinson 
24415 Narquis Ct. 
Laguna Rills, CA 92653 


SPACE FOR 
RENT 

Your ad here! 

Reasonable 

Rates! 

Call (317) 
241-6401 

\ J 
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StG Net Software/Login Pakg V3.0 

Complete Hftwt to run your own BBS! 

For 089 Level n /Coco 3 (OSKVenkm moqI 


Run a powerful, multi-line BBS without losing the 
uac of your computer! Run up to 8 lines. 

Hook up with an International Network, the StO Net. 
Net Account Included for your system so you can 
"net" with other StO Systems tmedlately. 

Other Network Interfaces coming soon. 

Complete E-lfall and Net-Hall Message System. 
Binary or Text flies can be sent as private mall. 
Flexible Menu system allows you to create your own 
menus In ANSI or 089 Graphics. Almost ANT 089 
program can be run from a menu (Std I/O). Sample 
Henus Included, so you can go right on-line. 

DE8 (Data Encryption Standard) Password Protection 
System utilities include: Mall, News. Chat. TSmon. 
Login, Help, Netxfr, Option, Status... and many more... 
Help Utility Included, gives you an On-line manual. 
Also Includes printed lnaallation manual. 
Xmodem/TModem/Kermlt Protocols for file transfer 
Includes FREE upgrades to Version 4.0 (Coming soon) 
All valid systems will receive upgrades via the net! 
Includes AnlMajlk's Games and Utilities Pak, made 
specially for the StQ Net 8ystem. 


A Revolutionary New Program...'TShell" does most of 
what Multi-Vue does at many times the speed! 

TShell will run most programs with one keypress.. .and 
will use standard MV AIT flies. Delete, Copy, Rename 
files all with one or two keypreeses! 

Many Utilities Included ••• WINDINT and MV NOT Req! 

AS0012 (Includes Disks and Printed Manual and accessories) 

(Please Include $3.00 SAH) $39.96 

AS0012M (Save $13.00!) Download program Direct by terminal 
(From any StO Node, call for more Info) Includes everything 
as above. Manual Is In pre-formatted docflle ready for your 
printer. (No SAH Needed!) $29.96 


Coming Soon! 


* RECLAIM - The Disk Doctor 



A80014 (Includes Disks and Printed Manual) $ 19.96 

(Hesse Include $3.00 8AH) 

A80014M (Save $5.00) Download program and doc via modem 
supplied as an ARed Tile (NO BAH Required!) $ 14.95 


Coco Tycoon - by AnlMajik Productions 

Create a "Monopoly" on your Coco3 (OS9 L2 Req) 
1 to 4 Players Even play against the Coco- 
Plays just like the Board Game... 

(Available mldsApril) 


3 Button Opto- Mechanical Serial Mouse 
Smooth, aestetlcally appealing, ergonomic design 
High Precision 250-1000 DPI 
decision "Click-Style" Buttons 
Includes user guide. 


(Take $3.00 off for Downloading via Modem/ SAH not Required!) 


• PRODUCTIONS - 

/fillSt * 

Send Checks or M.O.'s \ 6 

P.O. Box 38713 $ 

Hollywood, Ca. 90038 # 

(818) 761-4135 (Voice) L 

(213) 460-2968 (FAX) 

MONSTEROUSLY GREAT DEALS... I (fr)| 

AT MORE THAN HUMAN PRICES!!! j W 

(Prices Subject to Change without Notice) Jj \ )■' 

(Ca. Reeidenta please add 6% sales tax) ''CttV J.' | 


AH 0026 (Include $3.00 SAH) $ 34.91 

Hard Drives (SCSI) 


Call and Browse our Catalog at any of these BBSes 
(At the LOGIN prompt, type "animajik”) 

r (818) 761-4721 (MODEM) 

(818) 772-8890 (MODEM) 

\ (403) 329-6438 (MODEM) 

1 (904)898-2184 (MODEM) 
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/* 


dlink/iove - utilities for 0S9 and OSK 


long lseek(); I* lake sure we bo* it is long 


PD 1991 by StG 

to coipile: cc dlink.c 

then : chd /dd/cids 

dlink dl ink love 

Instructions: Basically, DLINK <froi> <to> -or- MOVB <froi> <to>, 
where <froi> is a directory (read warning) or file 
that already exists, and <to> is a file that you want 
to exist. Both conands will create the <to> file 
and link it to be the sale as <froi>. The MOVE coiiand 
then deletes the <froi> file so that the original is 
basically loved. 

How it works: 0S9 already supports linked files, to a degree. There 
is a link count in the FD (file descriptor) sector for 
each file. If lore than one directory entry are 
pointing to the saie FD, both will be able to access it. 
In this case, the link count would be two, indicating to 
the 0S9 delete coiiand that it should not actually 
reiove the file when only one of the links has been 
deleted. Instead, it subtracts one froi the link count. 

Probleis: The 0S9 dcheck coiiand does not understand links, and 

therefore consideres thei to be an error. The OSK dcheck 
coiiand is ok. 


/* returns path to file V 
char * 
path! s | 
char *s; 

( 

char *b=buf; 
char *p=s; 

/‘ insure there is at least one */ 
while (»s) if |‘s++"7') break; 
if (!*s) 

( 

/* return for current directory */ 

*bH=\'; 

*b=0; 

return(buf); 

1 


/* skip to end and back up to last ’/’ */ 
while (*s) s++; 
while i‘s!=7’) s-; 

/* copy into buf & return */ 
while (p<s) ‘bH=»pH; 

*b=0; 

return! buf); 


Earning: Linking to a directory will likely cause it's pointer to 
be incorrect. This will cause prograis that use in 
laking a scan of the directory structures to iuss up. One 
good exaiple of this is the pwd (OSK: pd) coiiand. It will 
report the wrong directory (if it doesn't error out) when a 
'..' pointer is bad. 

Short Fori: Link to directories only at your own risk! 


I 

/» returns just naie of file »/ 
char * 
file(s) 
char ‘s; 

( 

char *b=buf ; 
char *p=s; 


* MOTE: you can renaie this to LINK iff you don't use 0S9's link coiiand /* insure there is at least one 7 ' */ 
» while |‘s) if (*s«=='/'| break; 

«/ if (!*s) 

( 


♦define ERR (-1) 


/* return whole naie */ 

♦include <stdio.h> 


while (*p) *b++=*p++; 
*b=0; 

extern int errno; 

/* 0S9 error code ‘/ 

return(buf); 

int ff,fd,tf,td; 

/‘ froi/to file/dir */ 

) 

int af; 

/* device! file ‘/ 

/» skip to end and back up to last 7 ' 

long dir*0; 

/* directory flag & lsn storage ‘/ 

while (»s) s«; 

long fre=0; 

/‘ free space in td */ 

while (»s!=7'l s--; 

char buf [256]; 

/* shared buffer */ 


char foo[256]; 

/* if argv[2l has to be foo'd with */ 

/* copy into buf & return */ 

SH; 

struct 

/* directory structure */ 

while (*s) »bH=*sH; 

( 

*b=0; 

char nai[28]; 

/‘ file naie «/ 

return) buf); 

long lsn; 
} dur; 

/‘ pointer ‘/ 

I 
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/* quick case insensitive string coipare */ 

saie(sl,s2) 

char ‘sl,‘s2; 

( 

while (‘si tt *s2| if (tolower(*sl) !=tolower(*s2) ) return(0|; 

else 

( 

SlH; 

B2H; 

) 

if |*sl !! *s2| return|0); 
return! 1); 


/* set bit 7 on naie string for dir entry */ 

set7|s| 

char ‘s; 

( 

while |*s) s<+; 

*— s|=128; 


»ain(argc,argv) 
int argc; 
char **argv; 

( 

if (argc!=3) 

{ 

printf ("use: ts |fro»| |to)\n\*argv|; 

prlntfj" tss 'froi' dir or file to 'to' dir or file'\n\*argv|; 

exit(0); 

) 

/* open froi file */ 
ff=open(argv|l],3|; 
if (ff=ERR) 

( 

/* try to open as dir? »/ 
ff=open|argv[l], 128+3); 
if (ff~ERR) 

( 

printffts: can't open %s\n* , *argv, *++argv) ; 
exit(errno) ; 

) 

dim; /* set flag - we are loving a directory! */ 

1 

/* check to path to see if a directory */ 
if (access(argv[2l, 128+1) !=BRR) 

( 

/* we need to fudge argv[2) 

/* user has supplied directory to link/iove to but not file 
/* take file froi argv[l] and tack on argv[2] 

*/ 

strcpy(foo,argv[2]|; 

strcatifoo,*/"); 

strcat(foo,file(argv[ll)); 

argv[2l=foo; 

) 


I* open froi and to directories *1 
f d=open ( path ( ar gv [ 1 ] ) , 1 28 +3 ) ; 
if ( fd==ERR) 

( 

printf ("ts: can't open ts\n',‘argv,buf); 
exit(errno); 

) 

td=open(path(argv[2] ) ,128+3) ; 
if ( td==ERR ) 

( 

printfCts: can't open ts\n",*argv,buf); 
exit|errno|; 

) 

/* both paths lust be on sale device! */ 

_gs_devn(fd,buf); /» get entry, */ 

itriicpy(buf,buf|; /* fix 7bit high on last char */ 

_gs_devn(td,buf+32) ; /‘ sneak rooi in buf */ 

strhcpy(buf+32,buf+32|; 

if (strciplbuf ,buf+32) ) 

I 

printf (*%s: can't operate between different devices\n*,‘argv); 
exit(l); 

1 

/‘ open path direct to device */ 

*buf='/' ; 

strcpy(buf+l, buf+32) ; 
strcat(buf,"§'); 
af=open(buf ,3) ; 
if (af ==BRR) 

( 

prlntfl'ts: can't open to device is\n\‘argv,buf|; 
exit(l); 

I 

/* search to directory in case file is already there 
/* and for a free spot to put it in 

*/ 

file(argv[2]|; /‘ put naie of file in buf */ 
again: 
fre=0; 

iseek(td,0L,0); 

/‘ if we are link/ioving a dir, grab the '.' reference froi 
/‘ where it's going ... *1 
if (dir) 

{ 

read|td,Rdur,32); 
readjtd,6dur,32); 
dlr=dur.lsn; 

} 

while (read(td,fcdur,32)==32) 

( 

strhcpy(dur.nai,dur.nai); 
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if (saie|dur.nai,buf)| 

( 

printf("ts: file ts already exists in \*argv,buf); 

printf (•%s\n" f path(argv[2ll ); 

exitll); 

} . 

if (!*dur.nai t& !fre) fre=lseek(td,01,l)-32; /* free spot */ 

} 

if (fre| /* seek back to eipty entry */ 

( 

lseek(td,fre,0); 

read(td,6dur,32); /» lock It */ 

if 1‘dur.na) goto again; /* oops, soiebody else got there first 

lseek|td,fre,0); 

1 

/* path td is nox ready to receive nex entry 
/* next go through fd to find lsn to link to 

*/ 

file|argv[lj); /* put <froi> filenaie in buf »/ 
xhile |read|fd,fcdur,32)“32) 

( 

st rhcpy ( dur . nai , dur . nai ) ; 
if (saie|dur.nai,buf)j break; 

) 

/* check once lore in case loop at end! */ 
if (!saie(dur.nai,buf|| 

( 

printfj'ts: oops, can't find file ts in \*argv,buf); 

printf("ts\n’,path(argv[ll)); 

exit(l); 


/* LSN xe xant is in dur. lsn, xe can put nex naie in and 
/* xrite to td. But, first set FD for extra link count 
/• in case prograi gets bloxn axay. Better an extra link 
/* than one short! Exception: running as love 
*/ 

if (toloxer(“argv|=='i'| goto nolink; /* prograi is naiediove */ 

/* re-use fre var as a LSN pointer »/ 
fre=dur.lsn; 

tifdef OSK 

/* OOPS! OSK V2.3 nox allows VARIABLE SECTOR SIZE, xhich leans 
/* that xe light need to lodify fre to get to the right sector! 

*/ 

/* read lsn 0 into buf »/ 
if (lseekfaf ,0L,0)==BRR) exit(errno); 

If (read(af,buf,256)-=ERR| exit(errno) ; 

/* the txo bytes at offset 0x53 are the sector size ‘/ 
if (‘ (buf +0x54 | ) exit(-l); /* should alxays be zero »/ 
if (!*(buf+0x53) ) goto skip; /» xhex, this disk doesn't do that */ 
/* lultiply by nuiber of lultiple of 256 of sector size */ 
fre‘=‘(buf+0x53|; 


skip: 

fre*=256; 

lendif 

I* seek to FD and read ‘/ 

if ( lseekfaf ,fre,0)==BRR) exit(errno); 

if (read|af,buf,256)~ERR) exit(errno) ; 

/» increient link count */ 
if (»|buf+8)<0) 

( 

printf("ts: too lany links to ts\n',*argv,*++argv); 
exit(l); 

} 

(*(buf+8||++; 

/* before writing FD xe lust close our path to file 
/* xe are done xith it anyways, xere only keeping it 
/* open to prevent delete xhile in use 
/* during close OS9 re-xrites FD (xould wipe out change) 

•/ 

close(ff); 

/* xrite FD back ‘/ 

if (lseekfaf ,fre,0|==BRR) exit(ermo); 

If (xri te ( af , buf , 256 ) ==ERR ) exit(errno) ; 

nolink: 

/* nox xe can xrite out the nex directory entry »/ 

strcpy(dur.nai,file(argv[2D); 

set7(dur.nai); 

if ( xri te ( td , ftdur , 32 ) ==BRR | exit(errno); 

/* link has nox been accoiplished 

/‘ tile to check out .. entry (if dir) and handle love 

V 

if (dir) /» original file to love xas a dir? */ 

( 

/* open nex file and check .. pointer */ 
tf-open(argv[2], 128+3|; 
if (tf ==BRR) 

( 

printf ("Is: UhOh! can't open ts\n",*argv,argv[2l); 
exit(errno); 

) 

read(tf,6dur,32|; 

if (dur.lsn!=dir) /* dot dot is xrong */ 

{ 

if (toloxer(“argv)"'i') /» xe are love! */ 

( 

printf ("Updating ts/..\n",argv[2]); 
lseek| tf ,0L,0| ; 
dur.lsn=dir; 
xrite(tf,idur,32|; 

) 

else printf ("Earning: ts/.. is xrong!\n",argv[2|); 

) 
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close(tf); 

} 


I* if »e are love, unlink (delete) the original file */ 
if (tolower|“argv|“T) 

( 

/* note: fd still has original entry locked, back up & wipe out ‘/ 
lseeklfd, -32l,l|; 

‘dur.nai-0; 

dur.lsn=0; 

»rite(fd,4dur,32); 

} 

/‘ close our lyriad of files */ 

close(af); 

close(td); 

close) fd); 


lifndef OSK 

/* this section included for 0S9 which doesn’t have _gs_devn call ‘/ 

include <os9.h> 

_gs_devn(pn,buf| 

Int'pn; 
char *buf; 

( 

struct registers r; 


r.rg_a=pn; 
r . rg_b=SS_DBVNM ; 
r.rg_x=buf; 

retufn(_os9(I_GBTSTT,Str) ) ; 


tendif 


REVaUTTONARY. 

1 1 M/1 . A revolutionary computer system 
designed by you. 


I .... I Two years ago, tie first MM/1 design was 
I MM I laid out Shaped by the latest advances in 
I ONt I computers — and by your needs — the 
MM/1 is the most affordable, powerful system you can 
buy. • The MM/1 uses your existing RGB-A monitor. It 
uses your joystick, yourfloppy drives.your printer, your 
modem. Designed around industy standards, your 
future peripherals will fit nicely in your MM/1 system. 


graphics utilities, PC animation. 

Macmto*h™sounds, and follows important 

elements ol tie Compact Disk-lrrteractive™standard. 
IMS offers word-processing, databases, and 
applications brought over form the DOS and UNIX 
worlds.* Smooth stereo DMA sound lets the MM/1's 
68070 processor work undisturbed. DMA 1 .4 Megabyte 
flopo/ disk. Expandable to five floppies, seven hard 
disk or tape drives. Five serial ports, two parallel ports. 
Real time dock. Joystick port. You can network 1 28 
MM/ls together. 

Can 800/866-9084 for brochure or video. 
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And on, and on, and on... 

In the previous issue, (supposedly) dated Septeiber of last year, I 
started this regular coluin with the coiplaint 'How did I ever convince 
lyself this would be an easy job'. I vas thinking about how it seeied 
to take two wonths to put together each lagazine. At the tine I was in 
the liddle of several rush projects, and I had only with that issue 
settled on a staple process for editing, foriating, printing, 
addressing, and nailing the nagazine. I have learned a lot about the 
trials of publishing froi this, and I nust be a glutton for punishient 
because I an not about to quit. 

I have received nany calls froi concerened subscribers during the period 
we have been 'off the air'. I apologize sincerely to all of those who 
had faith in this project and whoi I have disasppointed. But now that 
StG inc. has conpleted it's nove and is once again naking enough spare 
noney to handle the nearly thousand dollars it takes to put out an issue 
(that's ‘after* subscriptions, advert iseients, and start-up costs!), let 
ne assure you all that we will continue to put out. When I started this 
lagazine, I nade the subscription rates low on purpose - I hate to pay a 
lot for wagazines nyself. If I had wanted the OSXer actually wake 
loney, the rates would have to be at least double. I have considered 
raising the rates even though, but I will put that off indefinately. If 
we can bring in soie additional regular advertising, it shouldn't be 
necessary to charge any lore per issue. Of course. I've shot a hole in 
that plan already - advertisers want to have a reliable publication as 
well as the readers do. As ly Hoi k Dad love to reiind le, it takes a 
lot of hard work to lake it on your own. Yes, Mother, I have ly work 
cut out for le. 

Of course I'i not the only one working on this (not that anyone else is 
to blaie though). Hy thanks go to Alan Sheltra for his wonderful 
support (and wonderful artwork - just wait till you see next lonth's 
cover!!) and ly friends (Hi Bug!) for getting out of ly hair now and 
then to let le get it done. And special thanks go to those who have 
written articles, suggested iiproveients, and offered help!!! 

Okay, now it's tile to get down and dirty. I don't have any letters to 
the editor for today, but I do have a few personal opinions to vent. 

WARNING: the following is highly flauable - read only in a well 
ventilated area! 

It would seei that the whole 0S9 coiiunity is having probleis. We've 
got lagazines failing (or at least slow) right and left, software houses 
folding, and certain coiputer coipanies that keep proiising the new 
lachines but (it would seei) never deliver on tiie. I ask you, HHAT THE 
H‘“ IS GOING ON HERE? Why does it seei as though the 0S9 coiiunity 
(except the industrial people) seei to be abandoning the long held 
conitient to the best in Multi-User Operating Systeis? Is this a real 
problei, the beginning of the end, or just a phase? Just what is going 
on, anyways? 

Hell, I have a few answers. But tiie will only tell all for certain. 

In the leantiie let le tell you a story or two. 

In the Indianapolis area there is a group of 0S9 enthusaists that grew 
out of the local Color Coiputer Club. He get together now and then and 
help each other with equipient or software probleis, discuss new things 


we have discovered, and talk about where things going. Up until 
recently, we all had 0S9 or OSK lachines and never even considered luch 
else. But in the last few lonths, a number of our already few have 
'sold out' and bought 386 lachines. 

Now soie would say that they should be lynched for giving up the fight 
for the Better Operating Systei. Soie others would excuiunicate thei 
froi the group for giving into the 'PC' world's single tasking 
enviroment. But I still accept thei, I even help thei with their 
lachines. Because I agree with their decision. 

Now before ya'll start getting any ideas about tp’ing ly house, stop for 
a second and hear le out. These fellows, who shall remain nameless (as 
the innocent should), were waiting for the 'fabled' CoCo4 lachine. 

That right, the do-all 680x0 machine that would solve all our probleis 
and limitations 0S9 on the CoCo. They waited faithfully for years for 
it to coie out. They were encouraged by the announceients of two such 
lachines, put off upgrade plans, and saved up their loney. They enjoyed 
theiselves for a while arguing over which one was better. They waned 
up their checkbooks as they anxiously counted the days until they could 
actually have one of their very own. Soie of thei even sent in their 
loney in advance. 

But that day caie and went. No lachine. And another day caie and went , 
again with no hardware to put on their desk. No fast lachine in a neat 
case with a louse next to the keyboard and windows to peek through. No 
new manuals to go through, no new software to play with. 

So they caie to the conclusion that it just wasn't going to be. That 
these new lachines would never coie out, or never have enough software 
to run on thei. Or never be any better than the PC world with it's 
super fast lachines and hi-res windows. There were tired of being left 
out in the cold with their poor little 8-bit (bus) lachines. That loney 
in their pocket kept itching every tiie they drove past a new store 
selling PC's. So finally they couldn't stand it any longer. They 
bought PC's. 

Now they are busy playing with thier new toys, new software, new lice, 
new windows, and having a grand tiie. Do they regret their decision? 
Hell, not luch. Do they still think that 0S9 is the best operating 
systei? Hell, it still is best at multiple tasks, but it doesn't have as 
■any prograis for it. Do they liss being able to run lultiple prograis? 
Hell, not really. They have Microsoft Hindows version 3 that allows 
thei to at least flip between multiple prograis if not let thei process 
at the saie tiie very well. 

You see, this is going on througout the 0S9 coiiunity. People are 
leaving 0S9 for HSDOS just because it's there. And also because HSDOS 
is finally catching up Hindows-wise. And lost of all, because people 
have proiised various Machines, software, and Magazines and not 
delivered on tiie. I ai not trying to blaie any particular individual. 
As I have pointed out, I ai also to blaie for not being on the ball. 

Oh sure, you think, these guys (and others) that we are loosing to PCs 
will coie back once we get going right? Pat chance, considering what 
they paid for their 386 lachines and the software to run thei. These 
guys put lore loney into their new lachines than what they would have 
for a TC70 or MMl (or similar lachine) fully decked out. They did so 
because the PC's were available right then. I think these people laking 
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the 'CoCo4' lachines (you know who you are) wade a big wi stake by not 
getting thei out by Christias, But then, I wade a big listake by not 
getting an issue out by Chrisias.- 

He need the lachines and the software M, not in a wonth or two. Hot 
in a year or two. If we are going to keep the dwindling nuibers of 0S9 
enthusiasts froi near extiction we all need to get loving and start 
cranking out top notch equipient and lachines right away. He need the 
saie kind of ingenuity that has blown the NSDOS world away before to 
coie up with new ideas that will grab people's attention. Show thei 
what can be done if you do it right. 

He need people to get the job done, not proiise southing and apologize 
when they can't lake due. I've learned ly lesson • the OSKer will be 
coiing out regularly froi now on. The question is, have the rest of us? 

Tiie for another story. 

A friend of line was showing 0S9 on a CoCo to a PC prograuer the other 
day. He was iuediately iipressed, and reiarked how that was the kind 
of systei he wanted to have. But could he get it for his PC? I told hii 
about OS-9000, and how it requires a 386 (at least) and isn't as fast 
and effiecient as plain 0S9 on a Hotorola Processor. He said "Oh" in a 
way that leant, "Hell, if it doesn't work as well on a PC than it lust 
not be so hot after all*. I explained to hii soie of the differences 
between Motorola 68000 processors and the Intel 80x86 ones. In the end 
I discovered that he didn't really know luch about Hotorola processors, 
and had never heard of 0S9. This actually didn't suprise le, as less 
than one person in ten that I talk to has . 

There is a bias in the overall coiiunity of coiputer people out there - 
but one not due to anything IBM or Intel has done, but rather due to 
what Hotorola and Hicrosoft _haven't_. There has been little effort on 
the part of Hotorola (who's processors are used lore than Intel's in 
Japanese products) and Hicroware (who has a large industrial larket in 
Japan too) to educate us here in the States about their products. The 
Japanese love to find the siiplist, easiest to use tools to lake their 
products. They should know what their doing, considering the aiount of 
robotics they use. And they are certainly laking enough loney at it - 
they keep buying pieces of us at prices higher than they light have to. 

If we are to survive at all, we lust grow. He lust attract people to 
our 'caip' faster than we loose thei. I don't believe it is any secret 
that this is not the case right now. But we are on the edge right now; 
either we fall off that edge into oblivion or we pull back in the nick 
of tiie. He have been given a second chance with these new lachines. 

One lore chance to get it right. 

The OS9 coiiunity has been brusied over and over by well-intentioned 
people who really leant to lake good on their proiised but for one 
reason or other were not able too. Of course, there have been those few 
who were just outright crooks, too. But for the lost part we have had 
decent people coie up with new products and bring thei out to the 
larket, if a little late than planned on, and end up benefiting the 
whole 0S9 coiiunity. And If we keep it up, there should be 0S9 
enthusiasts still hacking on into the next century. 

But how does this differ froi the so called 'real' larket - those 
companies who develop and larket PC products? They have their share of 
probleis too. Big naie coipanies that take forever to get a new tachine 


or software version out. Code that has enough holes in it to be 
listaken for swiss cheese. The people who deal with PC lachines on a 
regular basis (especially when it coies to newly developed stuff) have 
becoie accustoied to having probleis. How long ago was it that OS/2 was 
announced? It's only been just recently that version 1.3 has been 
released - all the previous versions have been full of bugs, take gobs 
of leiory, and are slow. Guess what! This new version takes over 20 
disks to install (that's 1.2 leg disks!) and runs halfway decent on a 
486 with at least four leg of rai. He're talking an investient of over 
six thousand dollars for a halfway decent lulti-tasking operating systei 
and the hardware to run it on. And OS/2 is not lulti-user. Even IBM 
theiselves adiit that. 

It's obvious that we can do better. He CAN one up the PC world. He CAN 
bring products out on tiie, we CAN coie up with new software without it 
crashing the custoier’s lachine, and yes, we CAN bring the news and 
views to you on a regular basis. If we get our act together, we can 
beat the PC world to the punch. He have the people with the brains - 
they don't (or at least didn't). He just have to get our collective 
rear ends into gear and get the job done, 

And I'l not just saying all of this to lotivate you. I believe it. 

I've seen it with ly own eyes. The difference that good software design 
can lake will beat fancy hardware lost every tiie. 

The bottoi line is siiple. He've got the better operating systei, and 
the better processor. He know it, and they'd know it too if we told 
thei. But we have a choice. To get together and fight for a better 
future in coiputing, or do nothing and let the PC's take over. 

Basically, it's a fight between effeciency or wastefulness. 

But lore than that, for us it is a fight between existance (to the rest 
of the world) and extinction. I don't for one linute fool lyself into 
thinking we can take over the world. There are too lany PC's out there 
right now. But we can certainly assure ourselves a place in it’s 
future, by doing the best job we can today. 


AND, just to show you that in fact there are people getting the job done 
out there, I have the following news to report to all of you. 

1) The OSKer is back for good. 

2) The IHS HHl lachine is going into a production run. Hachines are 
expected to be available at or after the Rainbow Fest. 

3) The FHL TC70 is in production and have been shipping since January. 

4| The FHL TC9 is undergoing test production runs, soie test units sold. 

Ken-Ton is to have a version of RGB DOS for it. 

5) FHL is working on a portable version of the TC70. 

6) FHL will be selling inexpensive 68k co-processor boards for TC9. 

7) The next OSKer will feature a coiplete review of the HHl. 

8) The issue after will feature a coiplete review of the TC70. 

9) Subiissions (prograis, articles, hate tail, suggestions) welcoie! 

See ya next lonth! 
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Kyum-Cai: to be Ninja (OS-9 Version) is the culmination of a project started almost a year 
ago. The talents of Gen R. Dahlgren (RS-DOS game writer for Sundog Systems), Kevin 
Darling (a legend for his work in OS-9), and Eddie Kuns (author of KBCom) have been 
pooled to create a masterpiece of game software under the OS-9 operating system. Fast 
martial arts action with outstanding graphics, great digitized sound effects, and incredible 
animation are featured in this arcade game, all in the OS-9 environment. 

Always wanted to play the great CoCo 3 games but didn't want to sacrifice your OS-9 
features? Multitask while playing Kyum-Cai. Have multiple Kyum-Cai's running in 
memory. Don't worry about switching windows, because Kyum-Cai: OS-9 auto-pauses, 
to wait for your return. 

Put simply, this is an unprecedented piece of software for the CoCo; a landmark game sure to be 
a major part of the Color Computer history. Don't miss out on this game! ^ Qr 
Req. 51 2K CoCo III with OS-9 Level 2 and joystick. 


VISA, Mastercard, Money Order, and 
COD (USA only, please) accepted. All 
foreign orders must be sent in US cur- 
rency Money Orders. Include $2.50 for 
shipping in USA and Canada, $5.00 
Foreign. $3.00 extra for COD orders. 
VA residents please add 6% sales tax. 
Dealer inquiries welcome. Authors: we're 
looking for new software! 


P.O. Box 766 
Manassas, V A 22111 
(703) 330-8989 
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Instalment >2 
by Al Fleagle 

Hell, its tile for the next instalment of 0_Say_Can_You_C. I hope 
everyone got their C coipilers up and running with the first 
instalment. So lets get busy. 

Lets start where a C prograi should start, with 'iain( 1 ' . This is where 
a C prograi begins execution. If there's no 'iain( ) ' the coipiler won't 
know where to start. So if you want an error leltdown, try coipiling a 
C prograi without it. And lore than one 'iain( } ' will confuse things 
too, although I haven't tried it. So let's write a very short C 
prograi. Froi the 0S9 proipt type the following: 

build lain.c 

You will see a '?' at the start of each line. Type each response as 
indicated. Press the enter key whenever you see <enter>. 

Proipt Response 

(Do not 

type this) (Type this] 

? iain(|<enter> 

? (<enter> 

? }<enter> 

? <enter> 

Type: 

list lain.c 
You should see: 
iain(| 


He know 'iain() ; is where the prograi starts, but what about those '(' 
and '}' brackets? Those brackets lark the beginning and end of 'iain||\ 
The function 'iain(|' contains whatever is between the '(' and the '}'. 

Coipile the prograi by typing: 

ccl lain.c 

After the coipiler has finished you should be able to call up a 
directory of /dd/CMDS and find a prograi called main'. At the 0S9 
proipt, type 

lain 

and press enter. The next thing you will see, surprise, surprise, is 
the 0S9 proipt. The prograi loaded and executed. Only, it did 
absolutely nothing, just as it was designed to do. (No, I haven't lost 
all ly larbles, yet.) 

Now lets do a little exploration. At the 0S9 proipt type the following: 
ident /dd/cids/iain 


You should see the following-. 

deader for: lain 

Module size: $01A2 *418 

Nodule CRC: J2B7DC4 (Good) 

Hdr parity: 08B 

Exec. Off: I001B 127 

Data size: 003D1 1977 

Edition: )0l II 

Ty/La At/Rv: 011 $81 

Prog lod, 6809 obj, re-en, R/0 

Take a close look at what this tells you. Main, which does absolutely 
nothing and is the siiplest possible prograi in C, is 418 bytes long and 
requires 977 bytes of data storage. That's over IK of leiory just to 
get the C coipiler to generate a prograi, any prograi. So C is 
obviously not as efficient as asseibly language. And its not as easy to 
understand as Basic09. So why bother with it? Because C is the lost 
portable language for personal coiputers today. An exaiple is a 
recently released lessage editor written in C on a Radio Shack Model Ilf 
and ported to the Color Coiputer. Now, no offense intended, but there 
aren't lany coiputers as dead as the Model III. Maybe the TI-99/4A, its 
deader 'n hell, but even on a "dead" coiputer C still gives you the 
ability to be on the cutting edge of software developient. 

I'i no longer going to explain step-by-step how to use the ’build' 
coiiand to enter your source code. If you have a word processor that 
you like [line is Dynastar) , use it. Type in the listings exactly as 
printed, save thei to disk (be sure to naie thei with a \c' at the end) 
and coipile thei exactly as we've done earlier. 

Let’s start soiething useful. Since aliost everyone is faiiliar with 
RS-Dos, we'll write a prograi to clear the screen just like 'CLS' under 
RS-Dos. Me'll call it ’els' because the convention in 0S9 is to 
capitalize only the naies of directories. Type the following source 
code into a file naied 'cls.c't 

linclude <stdio.h> 

iain() 

( 

putchar|'\0l4'|; 


Next, coipile the source code by typing: 
ccl cls.c 

Now type 'ident /dd/cids/cls' and this is what you should see: 

Header for: els 

Module size: 00797 *1943 

Module CRC: 0D97896 (Good) 

Hdr parity: JB8 

Exec, off: J001A 026 

Data size: 004A3 01187 

Edition: 001 01 

Ty/La At/Rv: 011 081 
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Prog tod, 6809 obj, re-en, R/0 

That's 1943 bytes for the prograi and 1187 bytes for data storage. 

Pretty hefty for a prograi that only clears the screen. Just for 
coiparlson, look at an asseibly language version written by Eddie 
Gil lore. 

Header for: CLS 

Module size: 10029 *41 

Module CRC: JF57D96 (Good) 

Hdr parity: <01 

Bxec. off: $0012 118 

Data Size: $00D0 <208 

Edition: <12 <18 

Ty/La At/Rv: <11 $81 

Prog iod, 6809 obj, re-en, R/0 

Only 41 bytes for the prograi, that's over 1900 less than the C version. 
Data storage only takes 208 bytes, aliost 1000 less than the C version. 
The total for the asseibly language version is less than one-tenth the 
size of the C version. Why do I point this out? To help explain 
soiething in our C source code. Lets look at the source code again. 

tinclude <stdio.h> 

iain() 

( 

putchar('\014'|; 


That first line, '<include <stdio.h>', I haven't explained that yet, 
have I? Kell, that is known as a preprocessor directive. It tells the 
coipiler to go find a file naied 'stdio.h' and put whatever is in that 
file into the source code. Inside 'stdio.h' is inforiation the coipiler 
needs for input and output, If you want to take a look, type the 
following: 

list /dd/defs/stdio.h 

The naie 'stdio.h' is shorthand for 'standard input output headers' and 
contains inforiation to handle all types of input and output routines. 
Since the coipiler doesn't know which of those routines it'll need, it 
includes thei all. And that is where a lot of the overhead or extra 
bytes coie froi. However, once included, the routines can be called as 
■any tiies as necessary without any further Increase in prograi size. 

So while the overhead Is excessive on a stall prograi like 'els', on a 
larger prograi like Dynastar, the overhead becoies insignificant. Ease 
of prograning and speed of developient becoie luch lore iiportant than 
a couple of thousand bytes. If you're not going to do any input or 
output, you'll never need 'stdio.h'. But that pretty luch liiits us to 
the 'taln.c' prograi we’ve already written. And I don't think we need 
any lore prograis that do absolutely nothing. 

Lets look at the other line of code that wasn't included in 'laln.c'. 

putchar('\014'|; 

This is where the prograi does the real work. This line calls a 
function 'putcharO'. (Note that 'putcharf )' is not the sale as 
'Putcharll'. C is case sensitive, unlike OS9.) 'putchar(|' is a 


function, just like 'iain( ) ' . You can tell they aie both functions as 
their naies are followed by two parentheses, '(' and But you will 
notice that there is soiething between these parentheses in the 
'putcharO' function in our source code. This is known as the arguient. 
The arguient is the value that the function 'putcharO' is to use. In 
our case the arguient is '\014'. 'putcharO' takes that arguient '\014' 
and PUTS the CHARacter out to the teriinal. Me will discuss the leaning 
of '\014' shortly. 

'putcharO' is contained in the C library as are lany other functions 
which we will discuss in the future. Right now it is iiportant only 
that you know that C is a language of functions, the lore functions in 
your library, the easier it will be to perfori coiplex tasks in C. 

Now let's look at that arguient '\014'. C interprets this to be an 
octal nuiber. Octal siiply leans base eight. If you were counting m 
base eight, it would go, "Zero, one, two, three, four, five, six, seven, 
one- zero.’ Even though that one-zero would be printed as '10', it is not 
ten. It is one-zero, base eight, which equals eight in the deciial 
systei with which we are all faiiliar. (I'l talkin' fingers and toes 
nuibers to the rest of you people froi Arkansas.) 

So, what does this '\014' lean? To figure that out, count froi the right 
end of the arguient toward the backslash (\) starting with zero. Zero, 
one, two digits are shown. Take the first nuiber on the right and 
mltiply it tiies eight to the zero power. (Zero was its nuiber in the 
count froi right to left. ) So we have four tiies eight to the zero 
power. Any nuiber to the zero power is one, so we have four tiies one, 
or four. Next take the second nuiber froi the right and mltiply it 
tiies eight to the one power. (One was its nuiber in the count froi 
right to left.) Bight to the one power is eight, so one tiies eight to 
the one power is one tiies eight, or eight. Finally, take the third 
nuiber froi the right and lultiply it tiies eight to the power of two. 
(Two was its nuiber in the count froi right to left starting with zero . ) 
Me have zero tiie eight to the power of two, or zero tiies sixty-four. 
Zero tiies anything is zero, so we have zero. Now, add the values 
together. Zero plus eight plus four. That equals twelve. So the 
arguient passed to the 'putcharO' function is equal to twelve. 


2 1 0 < -Count 

8X8 8 1 <-Powers of 8 

\ 0 1 4 <-Base 8 nuiber (indicated by ’\’ | 

64X0 8X1 1X4 <-Nultiply nuiber by powers of 8 

0 8 4 <--Results of multiplication 

0 + 8 + 4 = 12 <— Deciial equivalent of '\014' 


Twelve is the ASCII code to clear the screen on the Color Coiputer, so 
when 'putcharO' writes the value twelve to the teriinal, the screen is 
cleared. Don't ask le why twelve does the trick and not thirteen, 
soiebody soiewhere just liked twelve, I guess. 

There are other ways to set the arguient for 'putcharO' equal to 
twelve. If you have the C Coipiler lanual handy, look at page 1-4. 
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Under the heading 'Control Character Escape Sequences" you will find the 
following inforiation: 

bit patterns: \HNN (octal constant) 

\dHNN (deciial constant) 

\xNN (hexideciial constant) 

So the line with twelve expressed as an octal nuiber, 

putchar('\014'|; 

can also be written with twelve expressed as a deciial nuiber: 
putchar ( "\d012" ); 

or with twelve expressed as a hexideciial nuiber: 
putchar('\x0c'|; 

Try substituting these lines and re-coipiling the cls.c source code. 

One last thing to notice about the line, 
putchar('\0l4'|; 


This is all the further we will go this tue. 1 know lany of the 
advanced C prograuers find little value in this article. However, I 
will ask for their help. There are lany different libraries, compilers, 
header files, configurations and ways to hold your tongue. ISoietiies 
it won't work unless you hold your tongue just right.) I would ask those 
of you who prograi in C on the Color Coiputer to drop le a line and tell 
le what you use, which library, whose C coipiler, do you coipile using a 
raidisk, etc. Here is the chance to voice your opinion. If you think 
you have the best systei for coipiling C prograis on the Color Coiputer, 
let le hear about it. And I need as luch detail as you care to give le. 

I will be attesting to deteriine the 'de facto' standard for C 
prograuing on the Color Coiputer, and I intend to work to that 
standard. So here's your chance to vote that you do C light. 

Until next tiie, keep sailin' . It lakes people wonder what you've been 
up to. 

Al Pleagle 

II Alpine Court 
Little Hock, AH 72205 

501/661-1063 (voice) 

501/661-0527 (sysopHHorkShop) 


There is a seiicolon at the end of the line. This tells the C coipiler 
that here is the end of a stateient. Those of us who are used to 
prograuing in Basic09 or other basic languages generally end the line 
with just a carriage return (pressing ENTER) . That doesn't work for C. 
You lust have the seiicolon to tell where one stateient ends and the 
next begins. I'i sure we’ll forget a bunch of 'ei before we becoie 
proficient at C. 


Now, lets add soie couents to our source code. 


linclude <stdio.h> 


iain() 

( 


/» Tells the coipiler to include */ 
/• standard Input output headers */ 

/* Tells the coipiler here is *1 
/* the start of the prograi */ 

/» Here is the start of */ 

/» the function iain() */ 


putchar l'\014'); /* Put the value 12 */ 

/* out to the teninal »/ 


) 


/* Here is the end of */ 
/* the function iain(| */ 


As you can see, couents can be added throughout the source code. They 
lust begin with '/*' and end with '*/'• The coipiler knows to ignore 
anything between those syibols. Although I ai the worst about 
couentlng ly source code, do as I say, not as I do. Couents can save 
you untold headaches. Take a break and go try to read soie uncouented 
Basic09 code you've written lonths ago or, even worse, uncouented code 
soieone else has written. Beieiber, Basic09 code is luch lore readable 
than C. So If you have trouble with that, think how mch trouble you'll 
have with uncouented C code. Do yourself a favor, couent your code. 
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Using Systei Calls 
by Paul Pollock 

In all things worthwhile, we often find ourselves with a problei that 
cannot be solved in a conventional fashion. Prograuing in Basic09 is 
no exception! Anyhow, this article hopes to help you beginning Basic09 
prograuers, learn a lethod to find extra tools froi within 0S9 itself, 
to solve difficulties. 

To wake things easier, we’ll exaiine a couple of couon real-life 
probleis (as exaiples), and solve thei with practical solutions; only 
solvable with a 'Systei Call'. These solutions will be deionstrated by 
Basic09 prograis which actually use 0S9 to cure itself. 

Bxaiple tl - Perforiance Iiproveient 

lfe've all explained about it. When we execute lore than one prograi in 
■ultitask, quite often a Basic09 prograi slows down the systei for 
another prograi. Vhile this happens with other types of prograis, 
Basic09 prograis (using conventional tools within the language) tend to 
reduce a systeis' thruput luch lore severely. 

Vhile ASSEMBLY (and other fons) solves this problei in clever ways; the 
question is, how do we apply such solutions to our Basic09 prograis? For 
a clue, let’s exaiine Basic09 itself. 

Firstly, let's recognize a siiple fact; 

The coiputer waits for input, lost of the tiie. 

Because of this fact, Basic09 has been written to take this into 
account. In all the keyboard entry points; Systei Mode, Edit Mode and 
Debug lode; Basic09 is written to operate only long enough to scan the 
keyboard, and then return to the 0S9 polling table as soon as it can. 

You can test this yourself, by operating another prograi after starting 
Basic09. You'll find Basic09 has little effect on the rest of the 
systei. 

Bxcept when it is doing soiething other than keyboard entry; like 
'pack'ing a prograi. This is because Basic09 was written to generate 
'pack'ed lodules in an efficient tanner; and it is necesary to do this 
(and soie other tasks), as fast as it can. To get laxiiui perforiance, 
it now uses it's entire polling clock period, instead of delaying its 
operation. All of a sudden the coiputer runs quite slugishly, while 
packing a large prograi. 

Now to lake use of one lethod to get this technique into our own 
prograis. Let's take a look at the following listing; 

PROCBDCJHB Tiler 

0000 |* Tiler prograi to use the f (sleep Systei Call 

0037 (* Prograiied by 

0047 (» Paul B. Pollock 

0058 (‘ 8700 Parthenia Place »5 

0071 (• Sepulveda, CA 91343 

0087 PARAM TIMBO«T:BYTE 

008E TYPE RBGISTBRS=CC , A , B , DP : BYTB ; X,Y,U:INTBGBR 

00B3 DIN REGS: REGISTERS 

00BC DIM PATH , CALLCODB : BYTB 

00C7 RBGS . X=TIMBOOT 


00D3 CALLCODB=J0A 

00DB RUN SYSCALL | CALLCODB, REGS | 

00EA END 

Firstly, look at how the prograi is written. The prograi generates a 
TYPE stateient (DIM'd as RBGS) to tell Basic09 what the 6809 CPU looks 
like. Then it sets up the registers of the CPU for a Systei call. 

Note the CALLCODB. This is a landatory paraieter (in this case J0A, 
used to indicate the FJSleep call, page 8-35 of the Technical 
Reference), which lust be used to call the SYSCALL coiiand froi Basic09. 

SYSCALL (included in your CMDS directory), uses the CALLCODB to 
interface to the Systei Call table. The rest of the data Is sent via a 
packet defined by the REGS data packet. The only register we are 
lodifying, is the 'X' register, which the Technical References section 

of the lanual tells us is used to tell the Systei Call how long to 
TIMEOUT the calling process. All the registers lust be sent, via the 
TYPE packet, but any that are undefined, are assuied to be "don’t care' 
or 'leave as is' info. 

Here's the rules for use of the FJSleep Systei Call, as used by TIMER. 
Call the prograi via the following line; 

RUN Tiier(TINBOUT) 

The paraieter TIMEOUT is an integer nuiber, which deteriines the nuiber 
of systei 'ticks' you wish the FJSleep period to be. FJSleep is NOT 
repetitive, so you have to repeat this call, everytiie you do an input 
check. 

The TIMBOUT can be any nuiber between '0' and '255'. 

If '0' is used, then the FJSleep call will be forever. It has the 
effect of using LOOP without an BXITIF. The only way to exit is to 
setup a software interrupt, through a systei intercept. This is very 
coiplex, and not within the scope of this article. 

If T is used, the effect of this call is to release any unused tiie 
left in the Basic09 prograi's (which calls Tiier) polling interrupt; 
back to the systei, for use by another prograi. 

Any other nuiber used (within range), will cause the FJSleep to operate 
for increasingly longer periods. On a standard Coco Level-2 systei, 
these ticks are actually 100/second (even though the lanual states 
60/second). This leans you would norially use 100 ticks for a l second 
TIMBOUT. 

The above prograi assuies that your prograi has a place in the prograi 
where input is expected froi the user. For instance, you could lake use 
of this prograi, right after an INKEY entry point. Vhile the effect of 
this routine will be noticable with a TIMBOUT of '1', a keyboard scan 
could get away with a TIMBOUT as large as 2-3 without noticable effect 
in the prograi. And would provide an even lore draiatic sioothing of 
systei perforiance. This works well 'because' we are using a Systei 
Call. This has no effect on the input drivers and buffers, used to hold 
data inputted. Characters will be grabbed and stored until called for 
by the prograi. If this kind of stoppage were tried with conventional 
lethods, the prograi would liss characters, during TIMBOUT periods. 
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Or it could be used by i BBS prograi, to suspend the lodule, used to 
check for a 'carrier detect', which would indicate a user is present. 
With no user present, the coiputer does not need to scan for this 
condition on a continuous basis, because the carrier froi a caller is a 
'steady- state' condition, and will be there when you eventually get 
around to it <grln>. This weans that you could put the process to sleep 
for a relatively long period, without affecting the lain prograis' 
ability to start the BBS. You could use a period up to one(l) second or 
■ore, without the caller being aware of a problei. It could also be 
used at points in a Menu Control routine, while a user is online. This 
would prevent long periods of user inactivity froi having an adverse 
effect on your use of the coiputer. And can be handled as you would any 
other input scan. 

Exaiple 12 - Creating Sound 

Those of us who've operated our Coco2's and Coco3's under Extended Color 
Basic, reieiber the powerful and elegant lethods created by the people 
at Microsoft; to lake not only noises, but sound and lusic. Couands 
like SOUND and PLAY, are not only not part of Basic09; but are sorely 
lissed by lany prograuers. 

To alleviate this luch loved feature, at least to soie extent; let's 
look at the following prograi; 

PROCBDURB Tone 

0000 (* Tone Generator Prograi 

0019 (* by Paul Pollock 

002B |* DELPHI <PAULBBLL> 

003F (> phonel (818)895-1966 

0056 (‘ 

0059 (‘ This prograi is intended as a general purpose Tone 

source. 

0096 (‘ Makes use of, and demonstrates the use of IJsetstt 

Systei Call. 

00D8 (* In this exaiple, Syscall is used to call FJSetSta 

(callcode $8E) . 

011A (• The actual SS.Tone is option J98. 

013E (‘ The fine details are in your lanual. 

0165 (‘ 

0168 (‘ Usage; 

0172 (* RUN Tone(Voluie, Tick, Frequency) 

0194 (‘ 

0197 (* Paras: (all are laudatory) 

01B6 (• Voluie= 0-63 63 is loud 

01D5 (‘ Tick= 0-255 255 is long (100 ticks/sec) 

0204 (* Frequency=0-4095 4095 is highest pitch 

022E (t 

0231 TYPE registers^, A, B,DP:BYTB; X,Y,U:IlffB®R 
0256 DIM regsiregisters 

025F DIM path, cal lcode:BYTE 

026A PARAM Vol, Tick, Freq: INTEGER 

0279 DIN xdata: INTEGER 

0280 path=0 

0287 xdata=Vol‘256+Tick 

0297 cal lcode=$8E 

029F regs.A=path 

02AB regs.H98 

02B7 regs.X=idata 

02C3 regs.T=Preq 


02CF RUN syscall (calIcode,reqs) 

02DB END 

02E0 

Like the previous exaiple, this prograi lodels the 6809 CPU, and sets 
this up though the RBGS data packet. And, like the previous exaiple, 
this prograi recieves several paraieters froi standard input. These 
paraieters are used to lodify the CPU registers as listed. The CALLCODE 
(J8B), is the key for the FJSetsta call. This call is the doorway for a 
'sub-table' of additional systei tools. These tools becoie available 
via the 'B' register of the CPU. This register contains the tag (198) 
for 'SS.Tone' . The 'X' register contains a 2-byte code, which contains 
the voluie and duration data, The 'Y' register contains the Frequency 
infonation. 

All that's left is to send this data to SYSCALL, and let it rip! The 
liiits are stated in the prograi, and deciial integers are used for all 
paraieters. This prograi can be used to generate tones up to 2.5 
seconds long <grin>. This prograi is deceptively safe, as screwing up 
the paneters will have little effect on the systei. You light not get 
a tone, but the coiputer will continue to operate norially. 

One other important feature of this prograi is; unlike some prograuer's 
other lethods for sound production, this routine will NOT send randoi 
data to the printer. For this reason, it is ideal for cases where you 
wish to lake sounds and still use your printer. 

The only bad part of this prograi, isn't really part of this prograi, 
but a part of 0S9. Since OS9 is a lultitasking operating systei, the 
systei wants to run its prograis while the prograi wants to lake a tone. 
This prograi does not halt the systei to run. So the effect of the 
systei on this prograi is that it lakes the sound seei 'grainy' or 
'buzzy' . This effect is mildly unpleasant, but is otherwise quite 
effective. 

Wrapping Up The Loose Ends 

I hope this article has been infonative, and fun for you. The prograis 
included in this article are yours to use as you wish, as I’ve released 
thei into the public doiain. 

The Basic09 prograis, 'Tiler' and 'Tone', work on 0S9 Level-1 and 0S9 
Level-2 systeis without lodification (OSK systeis, confin the systei 
callcodes used, and any other paraieters required). They pack into very 
stall procedures, and require very little data, so they lend theiselves 
to larger projects where you light like to include thei into urged 
Basic09 procedures. The only external lodule required under Basic09 is 
SYSCALL. Packed procedures will also require RUNB, for proper 
operation. 

Good Luck, and keep prograiiing! 
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That's all for today's issue folks! 

Look forward to our following issues reviewing the various lachines 
either now or soon to be available. He start off with a coiplete 
top down review of the 1011 froi the inside out. That's right, everything 
you didn't want to know about the mi! 

And reieiber, Please lention the OSKer when you contact our advertisers. 
It never hurts to let thei know which lagazine you found thei in! 

Does it sound like I'l stalling to you? (I needed just one lore page., 
not two or three or four...l. 

Also in next lonths issue: the next instalment of Playing Chess in C, 
and also Bug's Windows, Bugs, and Patches article. That's right, we 
call the guy Bug. 

See ya next lonth! 


The Wizard of 0$K® 


byAlanSheltra 






SYSTEM IV COMPUTER 

PERFORMANCE - FLEXIBILITY - VERSATILITY 

VGA Video Card - 800 x 600 x 16 
to 320 x 200 x 256 
or - Hercules Monochrome Card 
Seven IBM/XT Compatible slots 
Floppy Disk Controller (37C65) 
supports two 360K , 720K, 1 . 2M 
or 1.4M Drives 

One 1.4 MByte, 3 1/2" Floppy Drive 
WD XTGEN Hard Disk Controller (MFM) 
Four RS-232 Serial Ports 
Parallel Printer Port 
40 MB Hard Drive, 28 msec, optional 
Clock with Battery 
4 layer board 

Memory Expansion slot - adds 
up to 8 MB of DRAM. 

AT style keyboard 
200 Watt Switching Power Supply 
Professional OS9/68000 
Drivers and descriptors for the 
devices and ports provided. 

Baby AT Case - holds three 5 1/4" 
1/2 ht drives and one 3 1/2" 
drive accessable from the 
front and one 3 1/2" internal 
drive . 

One year parts and labor warranty 
Mfg by Peripheral Technology 


Model K402-m with Hercules Monochrome Video Card . . . , ^ . $1,399.00 

Model K402-V with VGA Video Card ^ $1,499.00 

Model K401-m with 4 MB on-board DRAM, 40 MB Hard Drive ^ 

(28 msec) and Hercules Monochrome Card cV , 899. 00 

Model K401-v with 4 MB on-board DRAM, 40 MB Hard Drive 

(28 msec) and VGA Card $ .^ y 9 .00 

14" VGA Monitor, 0.31 mm. Gold Star 1450 Plus ^ 

with K401-v or K402-v (Regular $549.00) $ 4 -% ^0 

14" Monochrome TTL Monitor, Amber, Gold Star 1401 A 

with K401-m or K402-m (Regular $199.95) $ 149 

VGA Monochrome Monitor, white, Tandy VGM-100 ^ 

with K401-V or K402-V (Regular $199.95) $ 165.00 

QS9/680x0 SOFTWARE 

SCULPTOR - Development System (68000) from .... $2,500.00 

Quick Ed - Editor and Text Formatter $ 275.00 

FlexiLint - A must for C programmers $ 495.00 

Caching - High speed disk caching (demo available) $ 300.00 

IMP - Intelligent Make Program $ 250.00 

Disassembler - 3 pass $ 250.00 

Windows - C source code & library $ 250.00 

Profile - Tune User State Programs $ 270.00 

PAN Utilities - C source and library . $ 250.00 


delmar co 


MC68000 Microprocessor - 16 MHz 
1 MBytes of DRAM (0 wait state) 
4 MBytes optional 



P.O.BOX 78* MIDDLETOWN SHOPPING CENTER MIDDLETOWN, DE 19709 707 / 378-2555 



